home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1998 / MacHack 1998.toast / Programming Contest / ~Solutions Submitted / Problem 01 - Hearn / Solution.cp < prev    next >
Encoding:
Text File  |  1998-06-19  |  2.4 KB  |  116 lines  |  [TEXT/CWIE]
  1. /*
  2. Problem 01 - Mode Sort
  3.  
  4. This problem is to sort an input string of N characters, N<1000000, based on
  5. the number of times a character occurs in the input.  The most frequently
  6. occurring character should be sorted to the front of the string, followed by
  7. the next most frequently occurring character, etc.  For characters occurring
  8. the same number of times, the character that occurs first in the input should
  9. be sorted to the front.
  10.  
  11. Header specification
  12.  
  13. pascal OSErr ModeSort( const FSSpec* infile, const FSSpec* outfile );
  14.  
  15. Input specification
  16.  
  17. The infile input file contains the characters.  Input characters other than
  18. those printable low ascii characters c, 0x20<c<0x7f, must be ignored.
  19.  
  20. Output specification
  21.  
  22. The outfile must be created and then filled with the sorted characters.  It's
  23. final length should be exactly the same as the count of characters in the
  24. allowed range (0x20<c<0x7f) (which may be shorter than the infile file length).
  25.  
  26. Sample input
  27.  
  28. abcdefghabbcccdddeee
  29. or
  30. 012345678911234567892123456789312345678941234567895123456789612345678971234567891
  31.  
  32. Sample output
  33.  
  34. ccccddddeeeebbbaafgh
  35. or
  36. 111111111122222222233333333344444444455555555566666666677777777788888888999999990
  37. */
  38.  
  39. #include "Solution.h"
  40.  
  41. // Fill in your solution and then submit this folder
  42.  
  43. // Team Name: Bob Hearn
  44.  
  45. unsigned char *InputData;
  46.  
  47. long Count[0x80];
  48. long First[0x80];
  49.  
  50.  
  51. pascal OSErr ModeSort( const FSSpec* infile, const FSSpec* outfile )
  52. {
  53. long size;
  54. short rn;
  55. unsigned char c;
  56. long x;
  57. long max;
  58. long maxfirst;
  59. unsigned char maxindex;
  60. long reqsize = 1;
  61. OSErr err;
  62.  
  63.     err = FSpOpenDF( infile, fsRdPerm, &rn );
  64.     err = GetEOF(rn, &size);
  65.     
  66.     InputData = (unsigned char *) NewPtr(size);
  67.     err = FSRead( rn, &size, InputData );
  68.     err = FSClose( rn );
  69.     
  70.     for (c = 0x21; c < 0x80; ++c)
  71.     {
  72.         Count[c] = 0;
  73.         First[c] = -1;
  74.         
  75.         for (x = 0; x < size; ++x)
  76.             if (InputData[x] == c)
  77.             {
  78.                 ++Count[c];
  79.                 
  80.                 if (First[c] == -1)
  81.                     First[c] = x;
  82.             }
  83.     }
  84.     
  85.     err = FSpCreate( outfile, 'CWIE', 'TEXT', 0 );
  86.     err = FSpOpenDF( outfile, fsWrPerm, &rn );    
  87.     err = SetEOF(rn, 0);
  88.         
  89.     do
  90.     {
  91.         for (c = 0x21, max = 0; c < 0x80; ++c)
  92.         {
  93.             if (Count[c] > max || Count[c] == max && First[c] < maxfirst)
  94.             {
  95.                 max = Count[c];
  96.                 maxindex = c;
  97.                 maxfirst = First[c];
  98.             }
  99.         }
  100.         
  101.         Count[maxindex] = 0;
  102.         
  103.         if (max)
  104.             for (x = 0; x < max; ++x)
  105.             {
  106.                 err = FSWrite( rn, &reqsize, &maxindex );
  107.                 x = x;
  108.             }
  109.         
  110.     } while(max);
  111.     
  112.     FSClose(rn);
  113.     
  114.     return noErr;
  115. }
  116.